home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / Chip_2004-10_cd1.bin / software / stahuj / prog / pdfdemo.exe / {app} / frmSplash.frm (.txt) < prev    next >
Visual Basic Form  |  2003-08-22  |  2KB  |  67 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSplash 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   4500
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Picture         =   "frmSplash.frx":000C
  17.    ScaleHeight     =   300
  18.    ScaleMode       =   0  'User
  19.    ScaleWidth      =   300
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   2  'CenterScreen
  22.    Begin VB.Timer Timer1 
  23.       Enabled         =   0   'False
  24.       Interval        =   5000
  25.       Left            =   4080
  26.       Top             =   120
  27.    End
  28.    Begin VB.Label Label1 
  29.       BackStyle       =   0  'Transparent
  30.       BeginProperty Font 
  31.          Name            =   "Arial"
  32.          Size            =   8.25
  33.          Charset         =   0
  34.          Weight          =   400
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       ForeColor       =   &H00C0FFFF&
  40.       Height          =   315
  41.       Left            =   120
  42.       TabIndex        =   0
  43.       Top             =   3360
  44.       Width           =   4875
  45.    End
  46. Attribute VB_Name = "frmSplash"
  47. Attribute VB_GlobalNameSpace = False
  48. Attribute VB_Creatable = False
  49. Attribute VB_PredeclaredId = True
  50. Attribute VB_Exposed = False
  51. Private Sub Form_Click()
  52. CloseForm
  53. End Sub
  54. Private Sub Form_KeyPress(KeyAscii As Integer)
  55. CloseForm
  56. End Sub
  57. Private Sub Form_Load()
  58. Timer1.Enabled = True
  59. End Sub
  60. Private Sub Timer1_Timer()
  61. CloseForm
  62. End Sub
  63. Public Sub CloseForm()
  64. Unload Me
  65. pdfmain.Show
  66. End Sub
  67.